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-- DebugFTP.Mesa; 
-- Edited by: 

Sandman on April 24, 1978 10:25 AM 

Barbara on June 20, 1978 9:52 AM 

DIRECTORY 

AUoFileDefs: FROM "al tof iledef s" USING [FP], 
ComrnandDefs: FROM "commanddef s" USING [ 

FTPCode, WriteFTPString, WritelDString], 
ControTDefs: FROM "controldef s" , 

DebugFTPDefs: FROM "debugf tpdef s" USING [FetchHandle] , 
DebugMiscDefs: FROM "debugmiscdef s" USING [ 

CommandAbort, confirm, WriteCharZ, WriteEOL], 
DebugSymbolDefs: FROM "debugsymboldefs" USING [DCIeanSymbolItems], 
DebugUtilityDefs: FROM "debugutil itydef s" USING [Inval idateFileCache] . 
DirectoryDef s: FROM "directorydefs" USING [EnumerateDirectory], 
DiskKDDefs: FROM "diskkddefs" USING [CountFreeDiskPages] . 
lODefs: FROM "iodefs" USING [ 

CR, NUL, ReadChar, ReadID, Rubout, WriteChar, WriteDecimal , WriteString], 
SegmentDefs: FROM "segmentdef s" USING [ 

Defaul tAccess, DestroyFile, FileError, InsertFile], 
StringDefs: FROM "stringdef s" USING [AppendString , EquivalentString], 
SystemDefs: FROM "systemdefs" USING [ 

AllocateHeapNode. AllocateHeapString , FreeHeapString]; 

DebugFTP: PROGRAM 

IMPORTS CommandDefs, DebugMiscDefs, DebugSymbolDefs, DebugUtilityDefs, 

DirectoryDefs, DiskKDDefs, lODefs, SegmentDefs, StringDefs, SystemDefs 
EXPORTS DebugFTPDefs « 

BEGIN 

CR: CHARACTER « lODefs.CR; 
NUL: CHARACTER « lODefs.NUL; 

FTPData: TYPE = RECORD [ 

fetch: DebugFTPDefs. FetchHandle, 

hostname, directoryname, filename: STRING]; 

ftp: POINTER TO FTPData *- NIL; 

AddFetch: PUBLIC PROCEDURE[f: DebugFTPDefs . FetchHandle] » 
BEGIN 
IF ftp = NIL THEN 

BEGIN OPEN SystemDefs; 

ftp ^ AllocateHeapNode[SIZE[FTPData]]; 

ftp. hostname *- AnocateHeapString[40]; 

ftp. directoryname ^ AnocateHeapString[40]; 

ftp. filename ♦- Al locateHeapString[80]; 

END; 
ftp. fetch <- f; 
RETURN 
END; 

Call FTP: PUBLIC PROCEDURE - 

BEGIN OPEN DebugMiscDefs, DebugFTPDefs, lODefs, CommandDefs; 

c: CHARACTER; 

DO 

WriteEOL[]; 
WriteString["->"L]; 
c <- ReadChar[]; 
SELECT UpperCase[c] FROM 
•0 «> 

IF ftp « NIL THEN Wri teFTPString[notinstal led] 
ELSE 
BEGIN 

GetFTPID[open, NUL. ftp. hostname 1 CommandAbort => LOOP]; 
GetFTPID[dir, CR, ftp . directoryname I CommandAbort «> LOOP]; 
ftp. fetch .ConnectToHost[f tp .hostname, ftp . directoryname]; 
END; 
'R «> 

IF ftp « NIL THEN Wri teFTPString[notinstal led] 
ELSE 
BEGIN 

GetFTPID[retrieve, CR, ftp. filename 1 CommandAbort «> LOOP]; 
ftp. fetch. Retriev0File[Ftp. filename] ; 



DebugFTP.mesa 2-Sep-78 15:32:14 



DebugUtil ityDef s . Inval idateFi1eCache[] ; 
D0bugSymbo1Defs.DC1eanSymbontems[]; 
END; 
'S -> 
IF ftp « NIL THEN Wri teFTPString[notinstanecl] 
ELSE 
BEGIN 

GetFTPID[store, CR, f tp.f il ename 1 CommandAbort »> LOOP]; 
ftp.fetch.StoreFne[ftp. filename]; 
END; 
'C »> 

IF ftp « NIL THEN Wri teFTPStringCnotinstalled] 
ELSE 
BEGIN 

WriteFTPString[ close]; 
confirm[l Rubout «> LOOP]; 
ftp .fetch .CloseConnection[] ; 
END; 
'F «> 
BEGIN 

WriteFTPString[freepgs]; 

WriteDecimal[DiskKDDefs.CountFreeDiskPages[]]; 
Write FTPS tring[pgs]; 
END; 
'D => 
BEGIN 

IODefs.WriteChar['D]; 
SELECT UpperCase[ReadChar[]] FROM 
'U »> 
IF ftp « NIL THEN Wri teFTPString[notinstan ed] 
ELSE 
BEGIN 

GetFTPID[dump, CR. ftp .filename I CommandAbort «> LOOP]; 
ftp. fetch .DumpFiles[f tp .filename]; 
END; 
'E => 
BEGIN 
name: STRING ^ IF ftp « NIL 

THEN SystemDefs.AllocateHeapString[40] ELSE ftp. filename; 
GetFTPID[delete, CR. name I 
CommandAbort «> 
BEGIN 

IF ftp = NIL THEN SystemDef s . FreeHeapString[name] ; 
LOOP 
END]; 
confirm[l Rubout «> LOOP]; 
DeleteFile[name]; 

IF ftp = NIL THEN SystemDef s . FreeHeapString[name] ; 
END; 
ENDCASE => WriteFTPString[ques]; 
END; 
•L »> 
BEGIN 

IODefs.WriteChar['L]; 
SELECT UpperCase[ReadChar[]] FROM 
•I => 

IF ftp « NIL THEN Wri teFTPS tring[not instal 1 ed] 
ELSE 
BEGIN 

GetFTPID[l ist, CR, ftp. filename 1 CommandAbort °> LOOP]; 
ftp.fetch.ListFiles[ftp .filename]; 
END; 
'0 => 
IF ftp « NIL THEN Wri teFTPString[not install ed] 
ELSE 
BEGIN 

GetFTPID[load, CR, ftp. Filename 1 CommandAbort «> LOOP]; 
ftp. fetch .LoadFiles[ftp. filename] ; 
DebugUtil i fcyDefs. Inval idateFileCache[]; 
DebugSymbolDef s .DCleanSymbol Items[]; 
END; 
ENDCASE -> WriteFTPString[ques]; 
END; 
•Q «> 
BEGIN 
WriteFTPString[quit]; 
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confirm[l Rubout -> LOOP]; 
EXIT; 
END; 
•X ■> 

IF ftp - NIL THEN WriteFTPString[notinstaned] 
ELSE 
BEGIN 

WriteFTPString[chat]; 
confirm[l Rubout -> LOOP]; 
ftp. fetch. Chat[]; 
END; 
ENDCASE ■> WriteFTPString[ques]; 
ENDLOOP; 
IF ftp # NIL THEN ftp .fetch .CloseConnection[] ; 
RETURN 
END; 

GetFTPID: PROCEDURE [command: CommandDef s . FTPCode, c: CHARACTER, s: STRING] 
BEGIN OPEN DebugMiscDefs, lODefs; 
t: STRING ^ [80]; 

CommandDef s .Wn*teFTPString[command] ; 
StringDef s.AppendString[t, s]; 
ReadID[t I Rubout «> 

BEGIN CommandDefs.WriteIDString[de1]; SIGNAL CommandAbort; END]; 
WriteCharZ[c]; 
s. length ♦- 0; 

StringDef s .AppendString[s, t]; 
END; 

FP: TYPE = AltoFileDefs.FP; 

DeleteFile: PUBLIC PROCEDURE [file: STRING] » 
BEGIN OPEN SegmentDefs.StringDefs; 
fileFound: BOOLEAN ^ FALSE; 
FileObj: FP; 

GetFiles: PROCEDURE [fp: POINTER TO FP, name: STRING] RETURNS [BOOLEAN] = 
BEGIN 
IF name[name.length-l] » '. AND f i1e[f ile. 1ength-l] # '. 

THEN name. length <- name. length - 1; 
IF EquivalentString[name, f i 1e] THEN 

BEGIN FileObj <- fpt; fileFound ♦- TRUE; END; 
RETURN[fileFound]; 
END; 

Di rectory Defs .EnumerateDi rectory [GetFiles] ; 

I0Defs.WriteString[fi1e]; 

IF NOT fileFound THEN CommandDef s .WriteFTPString[notfound] 

ELSE 

BEGIN 

DestroyFi1e[InsertFile[0Fi1eObj , Default Access] 
1 FileError => GOTO notallowed]; - 

CommandDef s .WriteFTPString[ deleted]; 

DebugUtil ityDef s . Inval idateFileCache[] ; 

EXITS 
notallowed => CommandDef s.WriteFTPString[notdeleted]; 

END; 
RETURN; 
END; 

Uppercase: PROCEDURE [c: CHARACTER] RETURNS [CHARACTER] » 
BEGIN 

RETURN[IF c IN ['a..'z] THEN LO0PHOLE[c + ('A - 'a)] ELSE c]; 
END; 

END... 



